

(top-level nil)

(unless (boundp '*missing-demo-data-loaded*) 
        (let ((indir (get-working-directory)))
          (set-working-directory *demos-path*)
          (load-data "world95.lsp")
          (set-working-directory indir))
        (setf *missing-demo-data-loaded* t))

(impute-missing-data)

(visualize-model)

(report-model)

(create-data :dialog nil)

(vista-message "Missing Data Imputation finished. ")
